SetColor procedure

  DECLARATION:  SetColor(Color : Word);

      PURPOSE:  Sets the current drawing color using the palette

         UNIT:  Graph

      REMARKS:  Using the colors in the palette, SetColor(N) sets the
                drawing color to the Nth color in the palette.

                Drawing color values may range from 0 to 15, depending on
                the current graphics driver and mode.  GetMaxColor will
                return the highest valid color for the current driver
                and mode.

 RESTRICTIONS:  Must first be in graphics mode.